BBS in a Box 5

home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 5 / BBS in a Box -Volume V (BBS in a Box) (April 1992).iso / Files / Prog / A / 005.HierMenus.cpt / HierMenus.p < prev next >
MacBinary | 1988-08-01 | 11.5 KB | [TEXT/MPS ]
open in:
MacOS 8.1 extracted |
Win98 extracted |
DOS extracted
browse contents |
view JSON data |
view as text

This file was processed as: MacBinary (archive/macBinary).
Confidence	Program	Detection	Match Type	Support
`66%`	dexvert	ZX81 Sinclair BASIC `(image/sinclairBASIC)`	ext	Supported
`10%`	dexvert	MacBinary `(archive/macBinary)`	fallback	Supported
`1%`	dexvert	Text File `(text/txt)`	fallback	Supported
`100%`	file	MacBinary II, inited, Mon Aug 1 17:07:26 1988, modified Mon Aug 1 17:07:26 1988, creator 'MPS ', type ASCII, 11118 bytes "HierMenus.p" , at 0x2bee 494 bytes resource	default (weak)
`99%`	file	data	default
`74%`	TrID	Macintosh plain text (MacBinary)	default
`25%`	TrID	MacBinary 2	default (weak)
`100%`	siegfried	fmt/1762 MacBinary (II)	default
`100%`	lsar	MacBinary	default
id metadata
key	value
macFileType	`[TEXT]`
macFileCreator	`[MPS ]`
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0b 48 69 65 72 4d 65 | 6e 75 73 2e 70 00 00 00 |..HierMe|nus.p...|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4d 50 53 | 20 01 00 00 00 00 00 00 |.TEXTMPS| .......|
|00000050| 00 00 00 00 00 2b 6e 00 | 00 01 ee 9f 1a 8e 0e 9f |.....+n.|........|
|00000060| 1a 8e 0e 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 dd a2 00 00 |........|........|
|00000080| 7b 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |{-------|--------|
|00000090| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000000a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000000b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000000c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 0d |--------|-------.|
|000000d0| 23 0d 23 09 41 70 70 6c | 65 20 4d 61 63 69 6e 74 |#.#.Appl|e Macint|
|000000e0| 6f 73 68 20 44 65 76 65 | 6c 6f 70 65 72 20 54 65 |osh Deve|loper Te|
|000000f0| 63 68 6e 69 63 61 6c 20 | 53 75 70 70 6f 72 74 0d |chnical |Support.|
|00000100| 23 0d 23 09 48 69 65 72 | 61 72 63 68 69 63 61 6c |#.#.Hier|archical|
|00000110| 20 4d 65 6e 75 20 45 78 | 61 6d 70 6c 65 20 41 70 | Menu Ex|ample Ap|
|00000120| 70 6c 69 63 61 74 69 6f | 6e 0d 23 0d 23 09 48 69 |plicatio|n.#.#.Hi|
|00000130| 65 72 4d 65 6e 75 73 0d | 23 0d 23 09 48 69 65 72 |erMenus.|#.#.Hier|
|00000140| 4d 65 6e 75 73 2e 70 09 | 2d 09 50 61 73 63 61 6c |Menus.p.|-.Pascal|
|00000150| 20 53 6f 75 72 63 65 0d | 23 0d 23 09 43 6f 70 79 | Source.|#.#.Copy|
|00000160| 72 69 67 68 74 20 a9 20 | 31 39 38 38 20 41 70 70 |right . |1988 App|
|00000170| 6c 65 20 43 6f 6d 70 75 | 74 65 72 2c 20 49 6e 63 |le Compu|ter, Inc|
|00000180| 2e 0d 23 09 41 6c 6c 20 | 72 69 67 68 74 73 20 72 |..#.All |rights r|
|00000190| 65 73 65 72 76 65 64 2e | 0d 23 0d 23 09 56 65 72 |eserved.|.#.#.Ver|
|000001a0| 73 69 6f 6e 73 3a 09 31 | 2e 30 09 09 09 09 09 38 |sions:.1|.0.....8|
|000001b0| 2f 38 38 0d 23 0d 23 09 | 43 6f 6d 70 6f 6e 65 6e |/88.#.#.|Componen|
|000001c0| 74 73 3a 09 48 69 65 72 | 4d 65 6e 75 73 2e 70 09 |ts:.Hier|Menus.p.|
|000001d0| 09 09 41 75 67 75 73 74 | 20 31 2c 20 31 39 38 38 |..August| 1, 1988|
|000001e0| 0d 23 09 09 09 09 48 69 | 65 72 4d 65 6e 75 73 2e |.#....Hi|erMenus.|
|000001f0| 72 09 09 09 41 75 67 75 | 73 74 20 31 2c 20 31 39 |r...Augu|st 1, 19|
|00000200| 38 38 0d 23 09 09 09 09 | 48 69 65 72 4d 65 6e 75 |88.#....|HierMenu|
|00000210| 73 2e 6d 61 6b 65 09 09 | 41 75 67 75 73 74 20 31 |s.make..|August 1|
|00000220| 2c 20 31 39 38 38 0d 23 | 0d 23 09 54 68 69 73 20 |, 1988.#|.#.This |
|00000230| 20 70 72 6f 67 72 61 6d | 20 69 73 20 61 20 73 69 | program| is a si|
|00000240| 6d 70 6c 65 20 65 78 61 | 6d 70 6c 65 20 6f 66 20 |mple exa|mple of |
|00000250| 68 6f 77 20 74 6f 20 75 | 73 65 20 68 69 65 72 61 |how to u|se hiera|
|00000260| 72 63 68 69 63 61 6c 20 | 6d 65 6e 75 73 0d 23 09 |rchical |menus.#.|
|00000270| 69 6e 20 79 6f 75 72 20 | 61 70 70 6c 69 63 61 74 |in your |applicat|
|00000280| 69 6f 6e 2e 0d 23 0d 23 | 09 53 65 65 20 53 61 6d |ion..#.#|.See Sam|
|00000290| 70 6c 65 20 61 6e 64 20 | 54 45 53 61 6d 70 6c 65 |ple and |TESample|
|000002a0| 20 66 6f 72 20 74 68 65 | 20 67 65 6e 65 72 61 6c | for the| general|
|000002b0| 20 73 74 72 75 63 74 75 | 72 65 20 61 6e 64 20 4d | structu|re and M|
|000002c0| 75 6c 74 69 46 69 6e 64 | 65 72 0d 23 09 74 65 63 |ultiFind|er.#.tec|
|000002d0| 68 6e 69 71 75 65 73 20 | 74 68 61 74 20 77 65 20 |hniques |that we |
|000002e0| 72 65 63 6f 6d 6d 65 6e | 64 20 74 68 61 74 20 79 |recommen|d that y|
|000002f0| 6f 75 20 75 73 65 20 77 | 68 65 6e 20 62 75 69 6c |ou use w|hen buil|
|00000300| 64 69 6e 67 20 61 20 6e | 65 77 20 61 70 70 6c 69 |ding a n|ew appli|
|00000310| 63 61 74 69 6f 6e 2e 0d | 23 0d 0d 48 69 65 72 61 |cation..|#..Hiera|
|00000320| 72 63 68 69 63 61 6c 20 | 4d 65 6e 75 20 45 78 61 |rchical |Menu Exa|
|00000330| 6d 70 6c 65 0d 0d 54 68 | 69 73 20 70 72 6f 67 72 |mple..Th|is progr|
|00000340| 61 6d 20 69 73 20 61 20 | 73 69 6d 70 6c 65 20 65 |am is a |simple e|
|00000350| 78 61 6d 70 6c 65 20 6f | 66 20 68 6f 77 20 74 6f |xample o|f how to|
|00000360| 20 61 64 64 20 68 69 65 | 72 61 72 63 68 69 63 61 | add hie|rarchica|
|00000370| 6c 20 6d 65 6e 75 73 20 | 74 6f 20 79 6f 75 72 0d |l menus |to your.|
|00000380| 61 70 70 6c 69 63 61 74 | 69 6f 6e 2e 20 41 20 66 |applicat|ion. A f|
|00000390| 65 77 20 74 69 70 73 3a | 0d 0d 54 68 65 20 74 6f |ew tips:|..The to|
|000003a0| 75 67 68 65 73 74 20 70 | 61 72 74 20 69 73 20 64 |ughest p|art is d|
|000003b0| 65 66 69 6e 69 6e 67 20 | 74 68 65 20 6d 65 6e 75 |efining |the menu|
|000003c0| 20 69 74 65 6d 20 74 68 | 61 74 20 22 6f 77 6e 73 | item th|at "owns|
|000003d0| 22 20 74 68 65 20 73 75 | 62 6d 65 6e 75 2e 20 54 |" the su|bmenu. T|
|000003e0| 68 65 0d 69 74 65 6d 20 | 6d 75 73 74 20 62 65 20 |he.item |must be |
|000003f0| 64 65 66 69 6e 65 64 20 | 77 69 74 68 20 61 20 63 |defined |with a c|
|00000400| 6f 6d 6d 61 6e 64 2d 6b | 65 79 20 6f 66 20 24 31 |ommand-k|ey of $1|
|00000410| 42 2c 20 61 6e 64 20 61 | 20 22 6d 61 72 6b 22 20 |B, and a| "mark" |
|00000420| 63 68 61 72 61 63 74 65 | 72 0d 77 68 6f 73 65 20 |characte|r.whose |
|00000430| 76 61 6c 75 65 20 69 73 | 20 74 68 65 20 49 44 20 |value is| the ID |
|00000440| 6f 66 20 74 68 65 20 73 | 75 62 6d 65 6e 75 2e 20 |of the s|ubmenu. |
|00000450| 54 68 65 20 73 75 62 6d | 65 6e 75 20 69 73 20 64 |The subm|enu is d|
|00000460| 65 66 69 6e 65 64 20 6a | 75 73 74 20 6c 69 6b 65 |efined j|ust like|
|00000470| 0d 61 20 6e 6f 72 6d 61 | 6c 20 6d 65 6e 75 2c 20 |.a norma|l menu, |
|00000480| 62 75 74 20 69 73 20 69 | 6e 73 65 72 74 65 64 20 |but is i|nserted |
|00000490| 69 6e 20 74 68 65 20 4d | 65 6e 75 20 4d 61 6e 61 |in the M|enu Mana|
|000004a0| 67 65 72 27 73 20 70 72 | 69 76 61 74 65 20 22 68 |ger's pr|ivate "h|
|000004b0| 69 65 72 61 72 63 68 69 | 63 61 6c 22 0d 6d 65 6e |ierarchi|cal".men|
|000004c0| 75 20 6c 69 73 74 20 62 | 79 20 73 70 65 63 69 66 |u list b|y specif|
|000004d0| 79 69 6e 67 20 2d 31 20 | 61 73 20 74 68 65 20 73 |ying -1 |as the s|
|000004e0| 65 63 6f 6e 64 20 70 61 | 72 61 6d 65 74 65 72 20 |econd pa|rameter |
|000004f0| 74 6f 20 49 6e 73 65 72 | 74 4d 65 6e 75 2e 20 0d |to Inser|tMenu. .|
|00000500| 0d 49 74 27 73 20 65 61 | 73 69 65 73 74 20 74 6f |.It's ea|siest to|
|00000510| 20 64 65 63 6c 61 72 65 | 20 61 6c 6c 20 79 6f 75 | declare| all you|
|00000520| 72 20 6d 65 6e 75 73 20 | 28 61 6e 64 20 73 75 62 |r menus |(and sub|
|00000530| 6d 65 6e 75 73 29 20 61 | 73 20 72 65 73 6f 75 72 |menus) a|s resour|
|00000540| 63 65 73 20 28 61 73 0d | 6f 70 70 6f 73 65 64 20 |ces (as.|opposed |
|00000550| 74 6f 20 63 72 65 61 74 | 69 6e 67 20 74 68 65 6d |to creat|ing them|
|00000560| 20 61 74 20 72 75 6e 74 | 69 6d 65 20 77 69 74 68 | at runt|ime with|
|00000570| 20 4e 65 77 4d 65 6e 75 | 29 2c 20 65 76 65 6e 20 | NewMenu|), even |
|00000580| 69 66 20 79 6f 75 27 72 | 65 20 63 72 65 61 74 69 |if you'r|e creati|
|00000590| 6e 67 0d 61 20 73 75 62 | 6d 65 6e 75 20 74 68 61 |ng.a sub|menu tha|
|000005a0| 74 20 77 69 6c 6c 20 69 | 6e 69 74 69 61 6c 6c 79 |t will i|nitially|
|000005b0| 20 63 6f 6e 74 61 69 6e | 20 6e 6f 20 69 74 65 6d | contain| no item|
|000005c0| 73 20 28 6c 69 6b 65 20 | 74 68 65 20 46 6f 6e 74 |s (like |the Font|
|000005d0| 20 73 75 62 6d 65 6e 75 | 20 69 6e 20 0d 74 68 69 | submenu| in .thi|
|000005e0| 73 20 65 78 61 6d 70 6c | 65 29 2e 20 54 68 69 73 |s exampl|e). This|
|000005f0| 20 73 69 6d 70 6c 69 66 | 69 65 73 20 79 6f 75 72 | simplif|ies your|
|00000600| 20 70 72 6f 67 72 61 6d | 27 73 20 68 61 6e 64 6c | program|'s handl|
|00000610| 69 6e 67 20 6f 66 20 73 | 75 62 6d 65 6e 75 73 20 |ing of s|ubmenus |
|00000620| 28 6e 6f 74 65 0d 74 68 | 61 74 20 69 6e 20 74 68 |(note.th|at in th|
|00000630| 69 73 20 65 78 61 6d 70 | 6c 65 2c 20 73 69 6e 63 |is examp|le, sinc|
|00000640| 65 20 74 68 65 20 73 75 | 62 6d 65 6e 75 73 27 20 |e the su|bmenus' |
|00000650| 49 44 73 20 66 6f 6c 6c | 6f 77 20 74 68 65 20 72 |IDs foll|ow the r|
|00000660| 65 67 75 6c 61 72 20 6d | 65 6e 75 27 73 0d 49 44 |egular m|enu's.ID|
|00000670| 2c 20 74 68 65 20 6f 6e | 6c 79 20 73 70 65 63 69 |, the on|ly speci|
|00000680| 61 6c 20 68 61 6e 64 6c | 69 6e 67 20 6f 66 20 73 |al handl|ing of s|
|00000690| 75 62 6d 65 6e 75 73 20 | 69 73 20 74 68 65 20 74 |ubmenus |is the t|
|000006a0| 65 73 74 20 28 69 6e 20 | 53 65 74 55 70 4d 65 6e |est (in |SetUpMen|
|000006b0| 75 73 29 20 74 6f 0d 64 | 65 63 69 64 65 20 77 68 |us) to.d|ecide wh|
|000006c0| 65 74 68 65 72 20 74 6f | 20 75 73 65 20 30 20 6f |ether to| use 0 o|
|000006d0| 72 20 2d 31 20 61 73 20 | 74 68 65 20 73 65 63 6f |r -1 as |the seco|
|000006e0| 6e 64 20 70 61 72 61 6d | 65 74 65 72 20 74 6f 20 |nd param|eter to |
|000006f0| 49 6e 73 65 72 74 4d 65 | 6e 75 21 29 2e 0d 0d 53 |InsertMe|nu!)...S|
|00000700| 75 62 6d 65 6e 75 73 20 | 6f 77 6e 65 64 20 62 79 |ubmenus |owned by|
|00000710| 20 61 70 70 6c 69 63 61 | 74 69 6f 6e 73 27 20 6d | applica|tions' m|
|00000720| 65 6e 75 73 27 20 49 44 | 73 20 73 68 6f 75 6c 64 |enus' ID|s should|
|00000730| 20 61 6c 77 61 79 73 20 | 62 65 20 69 6e 20 74 68 | always |be in th|
|00000740| 65 20 72 61 6e 67 65 0d | 31 20 74 68 72 6f 75 67 |e range.|1 throug|
|00000750| 68 20 32 33 35 20 28 69 | 6e 63 6c 75 73 69 76 65 |h 235 (i|nclusive|
|00000760| 29 3b 20 64 65 73 6b 20 | 61 63 63 65 73 73 6f 72 |); desk |accessor|
|00000770| 69 65 73 20 73 68 6f 75 | 6c 64 20 75 73 65 20 49 |ies shou|ld use I|
|00000780| 44 73 20 32 33 36 20 74 | 68 72 6f 75 67 68 0d 32 |Ds 236 t|hrough.2|
|00000790| 35 35 2c 20 61 6e 64 20 | 73 68 6f 75 6c 64 20 6c |55, and |should l|
|000007a0| 65 61 76 65 20 74 68 65 | 69 72 20 6d 65 6e 75 73 |eave the|ir menus|
|000007b0| 20 61 6e 64 20 73 75 62 | 6d 65 6e 75 73 20 69 6e | and sub|menus in|
|000007c0| 20 74 68 65 20 6d 65 6e | 75 20 62 61 72 20 6f 6e | the men|u bar on|
|000007d0| 6c 79 20 77 68 65 6e 0d | 74 68 65 79 27 72 65 20 |ly when.|they're |
|000007e0| 61 63 74 69 76 65 20 28 | 74 68 61 74 20 69 73 2c |active (|that is,|
|000007f0| 20 63 61 6c 6c 20 49 6e | 73 65 72 74 4d 65 6e 75 | call In|sertMenu|
|00000800| 20 77 68 65 6e 20 68 61 | 6e 64 6c 69 6e 67 20 61 | when ha|ndling a|
|00000810| 6e 20 61 63 74 69 76 61 | 74 65 20 65 76 65 6e 74 |n activa|te event|
|00000820| 2c 0d 61 6e 64 20 44 65 | 6c 65 74 65 4d 65 6e 75 |,.and De|leteMenu|
|00000830| 20 77 68 65 6e 20 68 61 | 6e 64 6c 69 6e 67 20 61 | when ha|ndling a|
|00000840| 20 64 65 61 63 74 69 76 | 61 74 65 20 65 76 65 6e | deactiv|ate even|
|00000850| 74 29 2e 20 54 68 69 73 | 20 72 65 61 6c 6c 79 20 |t). This| really |
|00000860| 61 70 70 6c 69 65 73 20 | 74 6f 20 0d 61 6c 6c 20 |applies |to .all |
|00000870| 6d 65 6e 75 73 3b 20 69 | 74 27 73 20 6d 6f 73 74 |menus; i|t's most|
|00000880| 20 69 6d 70 6f 72 74 61 | 6e 74 20 66 6f 72 20 70 | importa|nt for p|
|00000890| 6f 70 2d 75 70 20 61 6e | 64 20 73 75 62 6d 65 6e |op-up an|d submen|
|000008a0| 75 73 2c 20 68 6f 77 65 | 76 65 72 2e 20 41 6c 6c |us, howe|ver. All|
|000008b0| 20 74 68 69 73 0d 74 6f | 20 70 72 65 76 65 6e 74 | this.to| prevent|
|000008c0| 20 63 6f 6e 66 6c 69 63 | 74 73 20 28 69 74 20 6d | conflic|ts (it m|
|000008d0| 61 79 20 62 65 20 68 65 | 6c 70 66 75 6c 20 74 6f |ay be he|lpful to|
|000008e0| 20 6e 6f 74 65 20 74 68 | 61 74 20 69 6e 20 73 65 | note th|at in se|
|000008f0| 61 72 63 68 69 6e 67 20 | 74 68 72 6f 75 67 68 20 |arching |through |
|00000900| 0d 74 68 65 20 6d 65 6e | 75 20 6c 69 73 74 2c 20 |.the men|u list, |
|00000910| 74 68 65 20 68 69 65 72 | 61 72 63 68 69 63 61 6c |the hier|archical|
|00000920| 20 6c 69 73 74 20 5b 63 | 6f 6e 74 61 69 6e 69 6e | list [c|ontainin|
|00000930| 67 20 61 6c 6c 20 73 75 | 62 6d 65 6e 75 73 20 26 |g all su|bmenus &|
|00000940| 20 70 6f 70 2d 75 70 0d | 6d 65 6e 75 73 5d 20 69 | pop-up.|menus] i|
|00000950| 73 20 73 65 61 72 63 68 | 65 64 20 66 69 72 73 74 |s search|ed first|
|00000960| 29 2e 0d 0d 54 68 69 73 | 20 70 61 72 74 69 63 75 |)...This| particu|
|00000970| 6c 61 72 20 65 78 61 6d | 70 6c 65 20 69 73 20 6d |lar exam|ple is m|
|00000980| 65 61 6e 74 20 74 6f 20 | 73 68 6f 77 20 74 68 65 |eant to |show the|
|00000990| 20 6d 65 63 68 61 6e 69 | 63 73 20 6f 66 20 63 72 | mechani|cs of cr|
|000009a0| 65 61 74 69 6e 67 20 61 | 6e 64 0d 68 61 6e 64 6c |eating a|nd.handl|
|000009b0| 69 6e 67 20 65 76 65 6e | 74 73 20 66 72 6f 6d 20 |ing even|ts from |
|000009c0| 73 75 62 6d 65 6e 75 73 | 3b 20 69 6e 20 74 68 65 |submenus|; in the|
|000009d0| 20 69 6e 74 65 72 65 73 | 74 20 6f 66 20 73 69 6d | interes|t of sim|
|000009e0| 70 6c 69 63 69 74 79 2c | 20 63 65 72 74 61 69 6e |plicity,| certain|
|000009f0| 20 6e 69 63 65 0d 66 65 | 61 74 75 72 65 73 20 28 | nice.fe|atures (|
|00000a00| 6c 69 6b 65 20 63 68 65 | 63 6b 6d 61 72 6b 69 6e |like che|ckmarkin|
|00000a10| 67 20 74 68 65 20 63 75 | 72 72 65 6e 74 20 66 6f |g the cu|rrent fo|
|00000a20| 6e 74 20 61 6e 64 20 73 | 74 79 6c 65 73 2c 20 73 |nt and s|tyles, s|
|00000a30| 65 74 74 69 6e 67 20 74 | 68 65 20 0d 73 74 79 6c |etting t|he .styl|
|00000a40| 65 20 6f 66 20 22 72 65 | 61 6c 22 20 66 6f 6e 74 |e of "re|al" font|
|00000a50| 20 73 69 7a 65 73 20 69 | 6e 20 74 68 65 20 46 6f | sizes i|n the Fo|
|00000a60| 6e 74 20 73 75 62 6d 65 | 6e 75 20 74 6f 20 22 6f |nt subme|nu to "o|
|00000a70| 75 74 6c 69 6e 65 22 2c | 20 65 74 63 29 20 68 61 |utline",| etc) ha|
|00000a80| 76 65 20 62 65 65 6e 0d | 6f 6d 69 74 74 65 64 2e |ve been.|omitted.|
|00000a90| 0d 0d 48 61 76 65 20 66 | 75 6e 2e 0d 0d 4e 6f 74 |..Have f|un...Not|
|00000aa0| 65 3a 20 74 68 65 20 63 | 75 72 72 65 6e 74 20 76 |e: the c|urrent v|
|00000ab0| 65 72 73 69 6f 6e 20 64 | 6f 65 73 20 6e 6f 74 20 |ersion d|oes not |
|00000ac0| 61 63 74 75 61 6c 6c 79 | 20 63 61 6c 6c 20 53 79 |actually| call Sy|
|00000ad0| 73 45 6e 76 69 72 6f 6e | 73 20 74 6f 0d 64 65 74 |sEnviron|s to.det|
|00000ae0| 65 72 6d 69 6e 65 20 77 | 68 65 74 68 65 72 20 53 |ermine w|hether S|
|00000af0| 79 73 74 65 6d 20 34 2e | 31 20 69 73 20 72 75 6e |ystem 4.|1 is run|
|00000b00| 6e 69 6e 67 2e 20 54 68 | 69 73 20 77 69 6c 6c 20 |ning. Th|is will |
|00000b10| 62 65 20 66 69 78 65 64 | 2c 20 62 75 74 0d 69 6e |be fixed|, but.in|
|00000b20| 20 74 68 65 20 6d 65 61 | 6e 74 69 6d 65 2c 20 72 | the mea|ntime, r|
|00000b30| 75 6e 20 74 68 69 73 20 | 77 69 74 68 20 53 79 73 |un this |with Sys|
|00000b40| 74 65 6d 20 0d 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |tem .***|********|
|00000b50| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000b60| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000b70| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000b80| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 7d 0d |********|******}.|
|00000b90| 0d 50 52 4f 47 52 41 4d | 20 48 69 65 72 4d 65 6e |.PROGRAM| HierMen|
|00000ba0| 75 73 3b 0d 7b 2a 0d 20 | 2a 20 48 69 65 72 61 72 |us;.{*. |* Hierar|
|00000bb0| 63 68 69 63 61 6c 20 4d | 65 6e 75 20 45 78 61 6d |chical M|enu Exam|
|00000bc0| 70 6c 65 0d 20 2a 20 42 | 72 79 61 6e 20 53 74 65 |ple. * B|ryan Ste|
|00000bd0| 61 72 6e 73 20 30 35 4d | 61 79 38 37 20 0d 20 2a |arns 05M|ay87 . *|
|00000be0| 0d 20 2a 20 28 43 29 20 | 31 39 38 37 20 41 70 70 |. * (C) |1987 App|
|00000bf0| 6c 65 20 43 6f 6d 70 75 | 74 65 72 2c 20 49 6e 63 |le Compu|ter, Inc|
|00000c00| 2e 0d 20 2a 20 41 6c 6c | 20 52 69 67 68 74 73 20 |.. * All| Rights |
|00000c10| 52 65 73 65 72 76 65 64 | 2e 0d 20 2a 7d 0d 0d 55 |Reserved|.. *}..U|
|00000c20| 53 45 53 20 4d 65 6d 54 | 79 70 65 73 2c 20 51 75 |SES MemT|ypes, Qu|
|00000c30| 69 63 6b 64 72 61 77 2c | 20 4f 53 49 6e 74 66 2c |ickdraw,| OSIntf,|
|00000c40| 20 54 6f 6f 6c 49 6e 74 | 66 2c 20 50 61 63 6b 49 | ToolInt|f, PackI|
|00000c50| 6e 74 66 3b 0d 0d 7b 24 | 52 2d 7d 20 7b 6e 6f 20 |ntf;..{$|R-} {no |
|00000c60| 72 61 6e 67 65 20 63 68 | 65 63 6b 69 6e 67 7d 0d |range ch|ecking}.|
|00000c70| 7b 24 44 2b 7d 20 7b 47 | 65 6e 65 72 61 74 65 20 |{$D+} {G|enerate |
|00000c80| 64 65 62 75 67 20 73 79 | 6d 62 6f 6c 73 7d 0d 0d |debug sy|mbols}..|
|00000c90| 43 4f 4e 53 54 0d 09 6d | 65 6e 75 42 61 73 65 20 |CONST..m|enuBase |
|00000ca0| 3d 20 31 32 38 3b 09 09 | 09 7b 77 65 20 6e 75 6d |= 128;..|.{we num|
|00000cb0| 62 65 72 20 6f 75 72 20 | 6d 65 6e 75 73 20 73 74 |ber our |menus st|
|00000cc0| 61 72 74 69 6e 67 20 61 | 74 20 31 32 38 7d 0d 09 |arting a|t 128}..|
|00000cd0| 0d 09 6d 61 69 6e 4d 65 | 6e 75 20 3d 20 6d 65 6e |..mainMe|nu = men|
|00000ce0| 75 42 61 73 65 3b 09 7b | 6d 61 69 6e 20 6d 65 6e |uBase;.{|main men|
|00000cf0| 75 20 49 44 7d 0d 09 09 | 7b 77 65 20 64 6f 6e 27 |u ID}...|{we don'|
|00000d00| 74 20 63 61 72 65 20 61 | 62 6f 75 74 20 74 68 65 |t care a|bout the|
|00000d10| 20 46 6f 6e 74 2f 53 74 | 79 6c 65 2f 53 69 7a 65 | Font/St|yle/Size|
|00000d20| 20 69 74 65 6d 20 6e 75 | 6d 62 65 72 73 3b 20 77 | item nu|mbers; w|
|00000d30| 65 7d 0d 09 09 7b 64 65 | 61 6c 20 77 69 74 68 20 |e}...{de|al with |
|00000d40| 63 68 6f 69 63 65 73 20 | 69 6e 20 74 68 65 20 73 |choices |in the s|
|00000d50| 75 62 6d 65 6e 75 73 20 | 64 69 72 65 63 74 6c 79 |ubmenus |directly|
|00000d60| 7d 0d 09 09 71 75 69 74 | 49 74 65 6d 20 3d 20 35 |}...quit|Item = 5|
|00000d70| 3b 09 09 09 7b 51 75 69 | 74 20 69 74 65 6d 20 6e |;...{Qui|t item n|
|00000d80| 75 6d 62 65 72 7d 0d 09 | 0d 09 7b 74 68 65 20 46 |umber}..|..{the F|
|00000d90| 6f 6e 74 20 73 75 62 6d | 65 6e 75 20 49 44 7d 0d |ont subm|enu ID}.|
|00000da0| 09 66 6f 6e 74 4d 65 6e | 75 20 3d 20 6d 61 69 6e |.fontMen|u = main|
|00000db0| 4d 65 6e 75 2b 31 3b 09 | 09 0d 09 09 7b 77 65 20 |Menu+1;.|....{we |
|00000dc0| 72 65 74 72 69 65 76 65 | 20 74 68 65 20 66 6f 6e |retrieve| the fon|
|00000dd0| 74 20 6e 61 6d 65 20 66 | 72 6f 6d 20 74 68 65 20 |t name f|rom the |
|00000de0| 6d 65 6e 75 20 62 79 20 | 69 74 65 6d 20 6e 75 6d |menu by |item num|
|00000df0| 62 65 72 2c 7d 0d 09 09 | 7b 74 68 65 6e 20 75 73 |ber,}...|{then us|
|00000e00| 65 20 47 65 74 46 4e 75 | 6d 28 74 68 65 20 66 6f |e GetFNu|m(the fo|
|00000e10| 6e 74 20 6e 61 6d 65 29 | 20 74 6f 20 63 6f 6e 76 |nt name)| to conv|
|00000e20| 65 72 74 20 74 6f 20 66 | 61 6d 69 6c 79 7d 0d 09 |ert to f|amily}..|
|00000e30| 09 7b 6e 75 6d 62 65 72 | 2e 20 54 68 65 20 66 6f |.{number|. The fo|
|00000e40| 6e 74 20 4e 61 6d 65 20 | 73 68 6f 75 6c 64 20 62 |nt Name |should b|
|00000e50| 65 20 73 74 6f 72 65 64 | 20 77 69 74 68 20 74 68 |e stored| with th|
|00000e60| 65 20 64 6f 63 75 6d 65 | 6e 74 2c 7d 0d 09 09 7b |e docume|nt,}...{|
|00000e70| 6e 6f 74 20 74 68 65 20 | 66 61 6d 69 6c 79 20 6e |not the |family n|
|00000e80| 75 6d 62 65 72 20 28 62 | 65 63 61 75 73 65 20 46 |umber (b|ecause F|
|00000e90| 6f 6e 74 2f 44 41 20 4d | 6f 76 65 72 20 72 65 6e |ont/DA M|over ren|
|00000ea0| 75 6d 62 65 72 73 29 7d | 0d 09 09 0d 09 7b 74 68 |umbers)}|.....{th|
|00000eb0| 65 20 53 74 79 6c 65 20 | 73 75 62 6d 65 6e 75 20 |e Style |submenu |
|00000ec0| 49 44 7d 0d 09 73 74 79 | 6c 65 4d 65 6e 75 20 3d |ID}..sty|leMenu =|
|00000ed0| 20 66 6f 6e 74 4d 65 6e | 75 2b 31 3b 09 09 0d 09 | fontMen|u+1;....|
|00000ee0| 09 7b 53 74 79 6c 65 73 | 20 61 72 65 20 64 65 61 |.{Styles| are dea|
|00000ef0| 6c 74 20 77 69 74 68 20 | 69 6e 20 74 68 65 20 73 |lt with |in the s|
|00000f00| 61 6d 65 20 6f 72 64 65 | 72 20 74 68 65 79 20 61 |ame orde|r they a|
|00000f10| 70 70 65 61 72 20 69 6e | 7d 0d 09 09 7b 74 68 65 |ppear in|}...{the|
|00000f20| 20 51 75 69 63 6b 64 72 | 61 77 20 22 53 74 79 6c | Quickdr|aw "Styl|
|00000f30| 65 22 20 74 79 70 65 2e | 20 53 6e 65 61 6b 79 2c |e" type.| Sneaky,|
|00000f40| 20 62 75 74 20 63 6f 6e | 73 69 73 74 65 6e 74 20 | but con|sistent |
|00000f50| 77 69 74 68 7d 0d 09 09 | 7b 6f 74 68 65 72 20 4d |with}...|{other M|
|00000f60| 61 63 69 6e 74 6f 73 68 | 20 61 70 70 6c 69 63 61 |acintosh| applica|
|00000f70| 74 69 6f 6e 73 7d 0d 09 | 09 0d 09 7b 74 68 65 20 |tions}..|...{the |
|00000f80| 53 69 7a 65 20 73 75 62 | 6d 65 6e 75 20 49 44 7d |Size sub|menu ID}|
|00000f90| 0d 09 73 69 7a 65 4d 65 | 6e 75 20 3d 20 73 74 79 |..sizeMe|nu = sty|
|00000fa0| 6c 65 4d 65 6e 75 2b 31 | 3b 09 09 20 7b 74 68 65 |leMenu+1|;.. {the|
|00000fb0| 20 53 69 7a 65 20 73 75 | 62 6d 65 6e 75 20 49 44 | Size su|bmenu ID|
|00000fc0| 7d 0d 09 09 7b 53 69 7a | 65 73 20 61 72 65 20 72 |}...{Siz|es are r|
|00000fd0| 65 74 72 69 65 76 65 64 | 20 61 73 20 74 65 78 74 |etrieved| as text|
|00000fe0| 20 66 72 6f 6d 20 74 68 | 65 20 6d 65 6e 75 20 69 | from th|e menu i|
|00000ff0| 74 65 6d 3b 20 74 68 69 | 73 20 77 6f 75 6c 64 7d |tem; thi|s would}|
|00001000| 0d 09 09 7b 61 6c 6c 6f | 77 73 20 61 64 76 61 6e |...{allo|ws advan|
|00001010| 63 65 64 20 75 73 65 72 | 73 20 74 6f 20 65 64 69 |ced user|s to edi|
|00001020| 74 20 74 68 65 20 6d 65 | 6e 75 20 74 6f 20 61 64 |t the me|nu to ad|
|00001030| 64 20 63 75 73 74 6f 6d | 20 73 69 7a 65 73 7d 0d |d custom| sizes}.|
|00001040| 09 09 0d 09 6c 61 73 74 | 4d 65 6e 75 20 3d 20 73 |....last|Menu = s|
|00001050| 69 7a 65 4d 65 6e 75 3b | 09 09 7b 74 68 65 20 6c |izeMenu;|..{the l|
|00001060| 61 73 74 20 6d 65 6e 75 | 20 72 65 73 6f 75 72 63 |ast menu| resourc|
|00001070| 65 7d 0d 09 66 69 72 73 | 74 53 75 62 4d 65 6e 75 |e}..firs|tSubMenu|
|00001080| 20 3d 20 66 6f 6e 74 4d | 65 6e 75 3b 20 09 7b 74 | = fontM|enu; .{t|
|00001090| 68 65 20 66 69 72 73 74 | 20 73 75 62 6d 65 6e 75 |he first| submenu|
|000010a0| 20 2d 20 73 65 65 20 53 | 65 74 55 70 4d 65 6e 75 | - see S|etUpMenu|
|000010b0| 73 7d 0d 09 0d 09 6d 79 | 57 49 4e 44 69 64 20 3d |s}....my|WINDid =|
|000010c0| 20 31 32 38 3b 09 09 09 | 7b 6f 75 72 20 77 69 6e | 128;...|{our win|
|000010d0| 64 6f 77 20 74 65 6d 70 | 6c 61 74 65 7d 0d 09 6d |dow temp|late}..m|
|000010e0| 79 41 4c 52 54 69 64 20 | 3d 20 31 32 38 3b 20 09 |yALRTid |= 128; .|
|000010f0| 09 7b 6f 75 72 20 d2 6e | 65 65 64 20 72 69 67 68 |.{our .n|eed righ|
|00001100| 74 20 6d 61 63 68 69 6e | 65 20 26 20 73 79 73 20 |t machin|e & sys |
|00001110| 73 6f 66 74 77 61 72 65 | d3 20 61 6c 65 72 74 7d |software|. alert}|
|00001120| 0d 09 6d 79 53 54 52 4c | 69 73 74 49 44 20 3d 20 |..mySTRL|istID = |
|00001130| 31 32 38 3b 09 09 7b 6f | 75 72 20 73 74 72 69 6e |128;..{o|ur strin|
|00001140| 67 20 6c 69 73 74 7d 0d | 09 0d 56 41 52 09 6d 79 |g list}.|..VAR.my|
|00001150| 57 69 6e 64 6f 77 3a 20 | 57 69 6e 64 6f 77 50 74 |Window: |WindowPt|
|00001160| 72 3b 09 09 7b 6f 75 72 | 20 77 69 6e 64 6f 77 20 |r;..{our| window |
|00001170| 70 6f 69 6e 74 65 72 7d | 0d 09 6d 79 45 76 65 6e |pointer}|..myEven|
|00001180| 74 3a 20 45 76 65 6e 74 | 52 65 63 6f 72 64 3b 09 |t: Event|Record;.|
|00001190| 09 7b 45 76 65 6e 74 20 | 72 65 63 6f 72 64 20 66 |.{Event |record f|
|000011a0| 6f 72 20 47 65 74 4e 65 | 78 74 45 76 65 6e 74 7d |or GetNe|xtEvent}|
|000011b0| 09 0d 09 6d 79 4d 65 6e | 75 73 3a 20 41 52 52 41 |...myMen|us: ARRA|
|000011c0| 59 20 5b 6d 65 6e 75 42 | 61 73 65 2e 2e 6c 61 73 |Y [menuB|ase..las|
|000011d0| 74 4d 65 6e 75 5d 20 4f | 46 20 4d 65 6e 75 48 61 |tMenu] O|F MenuHa|
|000011e0| 6e 64 6c 65 3b 20 7b 6f | 75 72 20 6d 65 6e 75 73 |ndle; {o|ur menus|
|000011f0| 7d 0d 09 64 6f 6e 65 3a | 20 42 4f 4f 4c 45 41 4e |}..done:| BOOLEAN|
|00001200| 3b 09 09 09 09 7b 61 20 | 66 6c 61 67 20 74 68 61 |;....{a |flag tha|
|00001210| 74 20 74 68 65 20 75 73 | 65 72 20 63 68 6f 73 65 |t the us|er chose|
|00001220| 20 51 75 69 74 7d 0d 09 | 64 72 61 67 52 65 63 74 | Quit}..|dragRect|
|00001230| 3a 20 52 65 63 74 3b 09 | 09 09 09 7b 64 72 61 67 |: Rect;.|...{drag|
|00001240| 20 6c 69 6d 69 74 20 72 | 65 63 74 61 6e 67 6c 65 | limit r|ectangle|
|00001250| 2c 20 66 6f 72 20 44 72 | 61 67 57 69 6e 64 6f 77 |, for Dr|agWindow|
|00001260| 7d 0d 09 0d 09 64 65 6d | 6f 53 74 72 31 2c 20 64 |}....dem|oStr1, d|
|00001270| 65 6d 6f 53 74 72 32 2c | 09 09 09 7b 53 74 72 69 |emoStr2,|...{Stri|
|00001280| 6e 67 73 20 74 6f 20 64 | 72 61 77 20 69 6e 20 6f |ngs to d|raw in o|
|00001290| 75 72 20 64 65 6d 6f 20 | 77 69 6e 64 6f 77 7d 0d |ur demo |window}.|
|000012a0| 09 64 65 6d 6f 53 74 72 | 33 2c 20 64 65 6d 6f 53 |.demoStr|3, demoS|
|000012b0| 74 72 34 3a 20 53 74 72 | 32 35 35 3b 09 0d 09 0d |tr4: Str|255;....|
|000012c0| 09 63 75 72 46 6f 6e 74 | 3a 20 49 4e 54 45 47 45 |.curFont|: INTEGE|
|000012d0| 52 3b 09 09 09 7b 74 68 | 65 20 63 75 72 72 65 6e |R;...{th|e curren|
|000012e0| 74 20 66 6f 6e 74 20 6e | 75 6d 62 65 72 7d 0d 09 |t font n|umber}..|
|000012f0| 63 75 72 53 69 7a 65 3a | 20 49 4e 54 45 47 45 52 |curSize:| INTEGER|
|00001300| 3b 0d 09 63 75 72 53 74 | 79 6c 65 3a 20 53 74 79 |;..curSt|yle: Sty|
|00001310| 6c 65 3b 0d 09 0d 09 69 | 3a 20 49 4e 54 45 47 45 |le;....i|: INTEGE|
|00001320| 52 3b 09 09 09 09 09 7b | 61 20 74 65 6d 70 7d 0d |R;.....{|a temp}.|
|00001330| 09 6d 52 65 73 75 6c 74 | 3a 20 4c 6f 6e 67 49 6e |.mResult|: LongIn|
|00001340| 74 3b 09 09 09 7b 74 65 | 6d 70 2c 20 72 65 73 75 |t;...{te|mp, resu|
|00001350| 6c 74 20 66 72 6f 6d 20 | 4d 65 6e 75 53 65 6c 65 |lt from |MenuSele|
|00001360| 63 74 7d 0d 09 0d 09 0d | 7b 2a 0d 20 2a 20 4f 6e |ct}.....|{*. * On|
|00001370| 63 65 2d 6f 6e 6c 79 20 | 69 6e 69 74 69 61 6c 69 |ce-only |initiali|
|00001380| 7a 61 74 69 6f 6e 20 66 | 6f 72 20 6d 79 20 6d 65 |zation f|or my me|
|00001390| 6e 75 73 0d 20 2a 20 28 | 54 68 61 6e 6b 73 2c 20 |nus. * (|Thanks, |
|000013a0| 41 6e 64 79 21 29 0d 20 | 2a 7d 0d 50 52 4f 43 45 |Andy!). |*}.PROCE|
|000013b0| 44 55 52 45 20 53 65 74 | 55 70 4d 65 6e 75 73 3b |DURE Set|UpMenus;|
|000013c0| 0d 56 41 52 20 69 3a 20 | 49 4e 54 45 47 45 52 3b |.VAR i: |INTEGER;|
|000013d0| 0d 42 45 47 49 4e 0d 09 | 7b 47 65 74 20 61 6e 64 |.BEGIN..|{Get and|
|000013e0| 20 69 6e 73 65 72 74 20 | 65 61 63 68 20 6d 65 6e | insert |each men|
|000013f0| 75 2e 20 54 68 65 20 6e | 6f 72 6d 61 6c 20 6d 65 |u. The n|ormal me|
|00001400| 6e 75 73 20 61 72 65 20 | 69 6e 73 65 72 74 65 64 |nus are |inserted|
|00001410| 20 75 73 69 6e 67 20 7a | 65 72 6f 7d 0d 09 7b 61 | using z|ero}..{a|
|00001420| 73 20 74 68 65 20 73 65 | 63 6f 6e 64 20 70 61 72 |s the se|cond par|
|00001430| 61 6d 65 74 65 72 20 74 | 6f 20 49 6e 73 65 72 74 |ameter t|o Insert|
|00001440| 4d 65 6e 75 3b 20 74 68 | 65 20 73 75 62 6d 65 6e |Menu; th|e submen|
|00001450| 75 73 20 67 65 74 20 69 | 6e 73 65 72 74 65 64 20 |us get i|nserted |
|00001460| 75 73 69 6e 67 7d 0d 09 | 7b 2d 31 2c 20 74 6f 20 |using}..|{-1, to |
|00001470| 74 65 6c 6c 20 74 68 65 | 20 4d 65 6e 75 20 4d 61 |tell the| Menu Ma|
|00001480| 6e 61 67 65 72 20 74 6f | 20 69 6e 73 65 72 74 20 |nager to| insert |
|00001490| 69 6e 20 74 68 65 20 68 | 69 65 72 61 72 63 68 69 |in the h|ierarchi|
|000014a0| 63 61 6c 20 6d 65 6e 75 | 20 6c 69 73 74 7d 0d 09 |cal menu| list}..|
|000014b0| 46 4f 52 20 69 20 3a 3d | 20 6d 65 6e 75 42 61 73 |FOR i :=| menuBas|
|000014c0| 65 20 54 4f 20 6c 61 73 | 74 4d 65 6e 75 20 44 4f |e TO las|tMenu DO|
|000014d0| 20 42 45 47 49 4e 0d 09 | 09 6d 79 4d 65 6e 75 73 | BEGIN..|.myMenus|
|000014e0| 5b 69 5d 20 3a 3d 20 47 | 65 74 4d 65 6e 75 28 69 |[i] := G|etMenu(i|
|000014f0| 29 3b 20 7b 67 65 74 20 | 74 68 65 20 6d 65 6e 75 |); {get |the menu|
|00001500| 20 66 72 6f 6d 20 74 68 | 65 20 72 65 73 6f 75 72 | from th|e resour|
|00001510| 63 65 7d 0d 09 09 0d 09 | 09 7b 69 6e 73 65 72 74 |ce}.....|.{insert|
|00001520| 20 69 74 20 69 6e 74 6f | 20 61 20 6d 65 6e 75 20 | it into| a menu |
|00001530| 62 61 72 2c 20 6f 6e 65 | 20 77 61 79 20 6f 72 20 |bar, one| way or |
|00001540| 61 6e 6f 74 68 65 72 7d | 0d 09 09 49 46 20 69 20 |another}|...IF i |
|00001550| 3c 20 66 69 72 73 74 53 | 75 62 4d 65 6e 75 20 54 |< firstS|ubMenu T|
|00001560| 48 45 4e 0d 09 09 09 7b | 69 74 27 73 20 61 20 72 |HEN....{|it's a r|
|00001570| 65 67 75 6c 61 72 20 6d | 65 6e 75 2d 62 61 72 20 |egular m|enu-bar |
|00001580| 6d 65 6e 75 7d 0d 09 09 | 09 49 6e 73 65 72 74 4d |menu}...|.InsertM|
|00001590| 65 6e 75 28 6d 79 4d 65 | 6e 75 73 5b 69 5d 2c 30 |enu(myMe|nus[i],0|
|000015a0| 29 20 7b 69 6e 73 65 72 | 74 20 61 74 20 65 6e 64 |) {inser|t at end|
|000015b0| 20 6f 66 20 6e 6f 72 6d | 61 6c 20 6d 65 6e 75 20 | of norm|al menu |
|000015c0| 6c 69 73 74 7d 0d 09 09 | 45 4c 53 45 20 0d 09 09 |list}...|ELSE ...|
|000015d0| 09 7b 69 74 27 73 20 61 | 20 73 75 62 6d 65 6e 75 |.{it's a| submenu|
|000015e0| 7d 0d 09 09 09 49 6e 73 | 65 72 74 4d 65 6e 75 28 |}....Ins|ertMenu(|
|000015f0| 6d 79 4d 65 6e 75 73 5b | 69 5d 2c 2d 31 29 3b 20 |myMenus[|i],-1); |
|00001600| 7b 69 6e 73 65 72 74 20 | 68 69 65 72 61 72 63 68 |{insert |hierarch|
|00001610| 69 63 61 6c 20 73 75 62 | 6d 65 6e 75 7d 0d 09 45 |ical sub|menu}..E|
|00001620| 4e 44 3b 20 7b 66 6f 72 | 20 65 61 63 68 20 6d 65 |ND; {for| each me|
|00001630| 6e 75 7d 0d 09 0d 09 7b | 41 64 64 20 74 68 65 20 |nu}....{|Add the |
|00001640| 66 6f 6e 74 73 20 74 6f | 20 74 68 65 20 46 6f 6e |fonts to| the Fon|
|00001650| 74 20 73 75 62 6d 65 6e | 75 7d 0d 09 41 64 64 52 |t submen|u}..AddR|
|00001660| 65 73 4d 65 6e 75 28 6d | 79 4d 65 6e 75 73 5b 66 |esMenu(m|yMenus[f|
|00001670| 6f 6e 74 4d 65 6e 75 5d | 2c 27 46 4f 4e 54 27 29 |ontMenu]|,'FONT')|
|00001680| 3b 20 7b 61 64 64 20 66 | 6f 6e 74 73 20 74 6f 20 |; {add f|onts to |
|00001690| 74 68 65 20 66 6f 6e 74 | 20 6d 65 6e 75 7d 0d 09 |the font| menu}..|
|000016a0| 0d 09 44 72 61 77 4d 65 | 6e 75 42 61 72 3b 20 7b |..DrawMe|nuBar; {|
|000016b0| 64 72 61 77 20 6f 75 72 | 20 6d 65 6e 75 73 27 20 |draw our| menus' |
|000016c0| 74 69 74 6c 65 73 7d 0d | 45 4e 44 3b 20 7b 73 65 |titles}.|END; {se|
|000016d0| 74 75 70 6d 65 6e 75 73 | 7d 0d 0d 0d 7b 2a 0d 20 |tupmenus|}...{*. |
|000016e0| 2a 20 48 61 6e 64 6c 65 | 20 61 20 63 6f 6d 6d 61 |* Handle| a comma|
|000016f0| 6e 64 2c 20 65 69 74 68 | 65 72 20 66 72 6f 6d 20 |nd, eith|er from |
|00001700| 61 20 63 6f 6d 6d 61 6e | 64 20 6b 65 79 20 6f 72 |a comman|d key or|
|00001710| 20 66 72 6f 6d 0d 20 2a | 20 61 20 6d 65 6e 75 20 | from. *| a menu |
|00001720| 63 68 6f 69 63 65 2e 20 | 4d 52 65 73 75 6c 74 20 |choice. |MResult |
|00001730| 69 73 20 74 68 65 20 76 | 61 6c 75 65 20 72 65 74 |is the v|alue ret|
|00001740| 75 72 6e 65 64 20 62 79 | 20 0d 20 2a 20 4d 65 6e |urned by| . * Men|
|00001750| 75 53 65 6c 65 63 74 20 | 6f 72 20 4d 65 6e 75 4b |uSelect |or MenuK|
|00001760| 65 79 2e 0d 20 2a 7d 0d | 50 52 4f 43 45 44 55 52 |ey.. *}.|PROCEDUR|
|00001770| 45 20 44 6f 43 6f 6d 6d | 61 6e 64 20 28 6d 52 65 |E DoComm|and (mRe|
|00001780| 73 75 6c 74 3a 20 4c 4f | 4e 47 49 4e 54 29 3b 0d |sult: LO|NGINT);.|
|00001790| 56 41 52 20 74 68 65 49 | 74 65 6d 2c 74 68 65 4d |VAR theI|tem,theM|
|000017a0| 65 6e 75 3a 20 49 4e 54 | 45 47 45 52 3b 0d 09 74 |enu: INT|EGER;..t|
|000017b0| 6d 70 53 74 72 3a 20 53 | 74 72 32 35 35 3b 0d 09 |mpStr: S|tr255;..|
|000017c0| 74 6d 70 4c 6f 6e 67 3a | 20 4c 6f 6e 67 49 6e 74 |tmpLong:| LongInt|
|000017d0| 3b 0d 42 45 47 49 4e 0d | 09 74 68 65 49 74 65 6d |;.BEGIN.|.theItem|
|000017e0| 20 3a 3d 20 4c 6f 57 6f | 72 64 28 6d 52 65 73 75 | := LoWo|rd(mResu|
|000017f0| 6c 74 29 3b 20 7b 65 78 | 74 72 61 63 74 20 74 68 |lt); {ex|tract th|
|00001800| 65 20 6d 65 6e 75 20 61 | 6e 64 20 69 74 65 6d 20 |e menu a|nd item |
|00001810| 6e 75 6d 62 65 72 73 7d | 0d 09 74 68 65 4d 65 6e |numbers}|..theMen|
|00001820| 75 20 3a 3d 20 48 69 57 | 6f 72 64 28 6d 52 65 73 |u := HiW|ord(mRes|
|00001830| 75 6c 74 29 3b 20 20 20 | 20 0d 09 43 41 53 45 20 |ult);   | ..CASE |
|00001840| 74 68 65 4d 65 6e 75 20 | 4f 46 20 7b 77 68 69 63 |theMenu |OF {whic|
|00001850| 68 20 6d 65 6e 75 3f 7d | 0d 09 09 6d 61 69 6e 4d |h menu?}|...mainM|
|00001860| 65 6e 75 3a 20 20 43 41 | 53 45 20 74 68 65 49 74 |enu:  CA|SE theIt|
|00001870| 65 6d 20 4f 46 0d 09 09 | 09 7b 4e 6f 74 65 20 74 |em OF...|.{Note t|
|00001880| 68 61 74 20 77 65 20 64 | 6f 6e 27 74 20 68 61 76 |hat we d|on't hav|
|00001890| 65 20 61 6e 79 20 63 61 | 73 65 73 20 66 6f 72 20 |e any ca|ses for |
|000018a0| 74 68 65 20 66 6f 6e 74 | 2c 20 73 74 79 6c 65 2c |the font|, style,|
|000018b0| 20 6f 72 7d 0d 09 09 09 | 7b 73 69 7a 65 20 6d 65 | or}....|{size me|
|000018c0| 6e 75 73 20 68 65 72 65 | 3a 20 74 68 6f 73 65 20 |nus here|: those |
|000018d0| 61 72 65 20 68 61 6e 64 | 6c 65 64 20 69 6e 64 65 |are hand|led inde|
|000018e0| 70 65 6e 64 65 6e 74 6c | 79 2c 20 62 65 6c 6f 77 |pendentl|y, below|
|000018f0| 2e 20 4f 6e 6c 79 7d 0d | 09 09 09 7b 6e 6f 72 6d |. Only}.|...{norm|
|00001900| 61 6c 20 69 74 65 6d 73 | 20 74 68 61 74 20 61 70 |al items| that ap|
|00001910| 70 65 61 72 20 69 6e 20 | 74 68 69 73 20 6d 65 6e |pear in |this men|
|00001920| 75 20 61 72 65 20 74 61 | 6b 65 6e 20 63 61 72 65 |u are ta|ken care|
|00001930| 20 6f 66 20 68 65 72 65 | 2e 7d 0d 09 09 09 71 75 | of here|.}....qu|
|00001940| 69 74 49 74 65 6d 3a 20 | 64 6f 6e 65 20 3a 3d 20 |itItem: |done := |
|00001950| 54 52 55 45 3b 20 0d 09 | 09 45 4e 44 3b 20 7b 6d |TRUE; ..|.END; {m|
|00001960| 61 69 6e 4d 65 6e 75 20 | 63 61 73 65 7d 0d 0d 09 |ainMenu |case}...|
|00001970| 09 66 6f 6e 74 4d 65 6e | 75 3a 20 42 45 47 49 4e |.fontMen|u: BEGIN|
|00001980| 0d 09 09 09 7b 48 65 72 | 65 2c 20 77 65 20 6a 75 |....{Her|e, we ju|
|00001990| 73 74 20 63 68 61 6e 67 | 65 20 61 20 67 6c 6f 62 |st chang|e a glob|
|000019a0| 61 6c 20 66 6f 6e 74 20 | 6e 75 6d 62 65 72 2e 20 |al font |number. |
|000019b0| 48 6f 77 65 76 65 72 2c | 20 69 66 20 79 6f 75 72 |However,| if your|
|000019c0| 7d 0d 09 09 09 7b 61 70 | 70 6c 69 63 61 74 69 6f |}....{ap|plicatio|
|000019d0| 6e 20 73 61 76 65 73 20 | 66 6f 6e 74 20 69 6e 66 |n saves |font inf|
|000019e0| 6f 72 6d 61 74 69 6f 6e | 20 69 6e 20 69 74 73 20 |ormation| in its |
|000019f0| 64 6f 63 75 6d 65 6e 74 | 73 2c 20 79 6f 75 20 73 |document|s, you s|
|00001a00| 68 6f 75 6c 64 7d 0d 09 | 09 09 7b 73 61 76 65 20 |hould}..|..{save |
|00001a10| 74 68 65 20 66 6f 6e 74 | 20 6e 61 6d 65 20 28 72 |the font| name (r|
|00001a20| 61 74 68 65 72 20 74 68 | 61 6e 20 74 68 65 20 6e |ather th|an the n|
|00001a30| 75 6d 62 65 72 29 2c 20 | 74 6f 20 61 76 6f 69 64 |umber), |to avoid|
|00001a40| 20 72 65 6d 61 70 70 69 | 6e 67 7d 0d 09 09 09 7b | remappi|ng}....{|
|00001a50| 62 65 63 61 75 73 65 20 | 6f 66 20 46 6f 6e 74 2f |because |of Font/|
|00001a60| 44 41 20 4d 6f 76 65 72 | 20 6e 75 6d 62 65 72 20 |DA Mover| number |
|00001a70| 63 68 61 6e 67 65 73 2e | 20 45 61 63 68 20 74 69 |changes.| Each ti|
|00001a80| 6d 65 20 79 6f 75 20 6f | 70 65 6e 7d 0d 09 09 09 |me you o|pen}....|
|00001a90| 7b 73 75 63 68 20 61 20 | 64 6f 63 75 6d 65 6e 74 |{such a |document|
|00001aa0| 2c 20 75 73 65 20 47 65 | 74 46 4e 75 6d 20 74 6f |, use Ge|tFNum to|
|00001ab0| 20 66 69 6e 64 20 74 68 | 65 20 72 69 67 68 74 20 | find th|e right |
|00001ac0| 22 63 75 72 72 65 6e 74 | 20 6e 75 6d 62 65 72 22 |"current| number"|
|00001ad0| 2e 7d 0d 09 09 09 47 65 | 74 49 74 65 6d 28 6d 79 |.}....Ge|tItem(my|
|00001ae0| 4d 65 6e 75 73 5b 66 6f | 6e 74 4d 65 6e 75 5d 2c |Menus[fo|ntMenu],|
|00001af0| 74 68 65 49 74 65 6d 2c | 74 6d 70 53 74 72 29 3b |theItem,|tmpStr);|
|00001b00| 20 7b 67 65 74 20 74 68 | 65 20 63 68 6f 73 65 6e | {get th|e chosen|
|00001b10| 20 66 6f 6e 74 d5 73 20 | 6e 61 6d 65 7d 0d 09 09 | font.s |name}...|
|00001b20| 09 47 65 74 46 4e 75 6d | 28 74 6d 70 53 74 72 2c |.GetFNum|(tmpStr,|
|00001b30| 63 75 72 46 6f 6e 74 29 | 3b 20 7b 67 65 74 20 74 |curFont)|; {get t|
|00001b40| 68 65 20 6e 65 77 20 66 | 6f 6e 74 d5 73 20 6e 75 |he new f|ont.s nu|
|00001b50| 6d 62 65 72 2c 20 74 6f | 20 6f 75 72 20 67 6c 6f |mber, to| our glo|
|00001b60| 62 61 6c 7d 0d 09 09 09 | 49 6e 76 61 6c 52 65 63 |bal}....|InvalRec|
|00001b70| 74 28 74 68 65 50 6f 72 | 74 5e 2e 70 6f 72 74 52 |t(thePor|t^.portR|
|00001b80| 65 63 74 29 3b 20 7b 72 | 65 6d 65 6d 62 65 72 20 |ect); {r|emember |
|00001b90| 74 68 61 74 20 77 65 20 | 6e 65 65 64 20 74 6f 20 |that we |need to |
|00001ba0| 72 65 64 72 61 77 7d 0d | 09 09 45 4e 44 3b 20 7b |redraw}.|..END; {|
|00001bb0| 66 6f 6e 74 4d 65 6e 75 | 20 63 61 73 65 7d 0d 0d |fontMenu| case}..|
|00001bc0| 09 09 73 74 79 6c 65 4d | 65 6e 75 3a 20 42 45 47 |..styleM|enu: BEG|
|00001bd0| 49 4e 0d 09 09 09 7b 54 | 68 65 20 73 74 79 6c 65 |IN....{T|he style|
|00001be0| 73 20 28 6f 74 68 65 72 | 20 74 68 61 6e 20 50 6c |s (other| than Pl|
|00001bf0| 61 69 6e 29 20 61 72 65 | 20 61 72 72 61 6e 67 65 |ain) are| arrange|
|00001c00| 64 20 69 6e 20 74 68 65 | 7d 0d 09 09 09 7b 6d 65 |d in the|}....{me|
|00001c10| 6e 75 20 69 6e 20 74 68 | 65 20 73 61 6d 65 20 6f |nu in th|e same o|
|00001c20| 72 64 65 72 20 74 68 61 | 74 20 74 68 65 79 20 61 |rder tha|t they a|
|00001c30| 70 70 65 61 72 20 69 6e | 20 74 68 65 7d 0d 09 09 |ppear in| the}...|
|00001c40| 09 7b 53 74 79 6c 65 20 | 74 79 70 65 2e 20 49 66 |.{Style |type. If|
|00001c50| 20 69 74 27 73 20 6e 6f | 74 20 70 6c 61 69 6e 2c | it's no|t plain,|
|00001c60| 20 77 65 20 63 61 6e 20 | 63 6f 6e 76 65 72 74 20 | we can |convert |
|00001c70| 74 68 65 7d 0d 09 09 09 | 7b 69 74 65 6d 20 6e 75 |the}....|{item nu|
|00001c80| 6d 62 65 72 20 74 6f 20 | 74 68 65 20 70 72 6f 70 |mber to |the prop|
|00001c90| 65 72 20 65 6e 75 6d 65 | 72 61 74 65 64 20 76 61 |er enume|rated va|
|00001ca0| 6c 75 65 20 66 6f 72 20 | 74 68 65 20 73 74 79 6c |lue for |the styl|
|00001cb0| 65 7d 0d 09 09 09 7b 61 | 6e 64 20 75 73 65 20 73 |e}....{a|nd use s|
|00001cc0| 65 74 20 6d 61 74 68 20 | 74 6f 20 74 6f 67 67 6c |et math |to toggl|
|00001cd0| 65 20 74 68 65 20 70 61 | 72 74 69 63 75 6c 61 72 |e the pa|rticular|
|00001ce0| 20 73 74 79 6c 65 7d 0d | 09 09 09 7b 63 68 61 72 | style}.|...{char|
|00001cf0| 61 63 74 65 72 69 73 74 | 69 63 2e 7d 0d 09 09 09 |acterist|ic.}....|
|00001d00| 49 46 20 74 68 65 49 74 | 65 6d 20 3d 20 31 20 54 |IF theIt|em = 1 T|
|00001d10| 48 45 4e 20 63 75 72 53 | 74 79 6c 65 20 3a 3d 20 |HEN curS|tyle := |
|00001d20| 5b 5d 20 45 4c 53 45 20 | 42 45 47 49 4e 20 7b 6e |[] ELSE |BEGIN {n|
|00001d30| 6f 74 20 27 50 6c 61 69 | 6e 27 7d 0d 09 09 09 09 |ot 'Plai|n'}.....|
|00001d40| 7b 69 74 27 73 20 6e 6f | 74 20 70 6c 61 69 6e 2c |{it's no|t plain,|
|00001d50| 20 73 6f 20 74 6f 67 67 | 6c 65 20 74 68 69 73 20 | so togg|le this |
|00001d60| 73 74 79 6c 65 20 63 68 | 61 72 61 63 74 65 72 69 |style ch|aracteri|
|00001d70| 73 74 69 63 7d 0d 09 09 | 09 09 49 46 20 53 74 79 |stic}...|..IF Sty|
|00001d80| 6c 65 49 74 65 6d 28 74 | 68 65 49 74 65 6d 2d 32 |leItem(t|heItem-2|
|00001d90| 29 20 49 4e 20 63 75 72 | 53 74 79 6c 65 20 54 48 |) IN cur|Style TH|
|00001da0| 45 4e 0d 09 09 09 09 09 | 7b 74 68 69 73 20 73 74 |EN......|{this st|
|00001db0| 79 6c 65 20 63 68 61 72 | 61 63 74 65 72 69 73 74 |yle char|acterist|
|00001dc0| 69 63 20 69 73 20 63 75 | 72 72 65 6e 74 6c 79 20 |ic is cu|rrently |
|00001dd0| 6f 6e 2c 20 73 6f 20 74 | 75 72 6e 20 69 74 20 6f |on, so t|urn it o|
|00001de0| 66 66 7d 0d 09 09 09 09 | 09 63 75 72 53 74 79 6c |ff}.....|.curStyl|
|00001df0| 65 20 3a 3d 20 63 75 72 | 53 74 79 6c 65 20 2d 20 |e := cur|Style - |
|00001e00| 5b 53 74 79 6c 65 49 74 | 65 6d 28 74 68 65 49 74 |[StyleIt|em(theIt|
|00001e10| 65 6d 2d 32 29 5d 0d 09 | 09 09 09 45 4c 53 45 0d |em-2)]..|...ELSE.|
|00001e20| 09 09 09 09 09 7b 74 68 | 69 73 20 73 74 79 6c 65 |.....{th|is style|
|00001e30| 20 63 68 61 72 61 63 74 | 65 72 69 73 74 69 63 20 | charact|eristic |
|00001e40| 69 73 20 63 75 72 72 65 | 6e 74 6c 79 20 6f 6e 2c |is curre|ntly on,|
|00001e50| 20 73 6f 20 74 75 72 6e | 20 69 74 20 6f 66 66 7d | so turn| it off}|
|00001e60| 0d 09 09 09 09 09 63 75 | 72 53 74 79 6c 65 20 3a |......cu|rStyle :|
|00001e70| 3d 20 63 75 72 53 74 79 | 6c 65 20 2b 20 5b 53 74 |= curSty|le + [St|
|00001e80| 79 6c 65 49 74 65 6d 28 | 74 68 65 49 74 65 6d 2d |yleItem(|theItem-|
|00001e90| 32 29 5d 3b 0d 09 09 09 | 45 4e 44 3b 0d 09 09 09 |2)];....|END;....|
|00001ea0| 49 6e 76 61 6c 52 65 63 | 74 28 74 68 65 50 6f 72 |InvalRec|t(thePor|
|00001eb0| 74 5e 2e 70 6f 72 74 52 | 65 63 74 29 3b 20 7b 72 |t^.portR|ect); {r|
|00001ec0| 65 6d 65 6d 62 65 72 20 | 74 68 61 74 20 77 65 20 |emember |that we |
|00001ed0| 6e 65 65 64 20 74 6f 20 | 72 65 64 72 61 77 7d 0d |need to |redraw}.|
|00001ee0| 09 09 45 4e 44 3b 20 7b | 73 74 79 6c 65 4d 65 6e |..END; {|styleMen|
|00001ef0| 75 20 63 61 73 65 7d 0d | 0d 09 09 73 69 7a 65 4d |u case}.|...sizeM|
|00001f00| 65 6e 75 3a 20 42 45 47 | 49 4e 0d 09 09 09 7b 52 |enu: BEG|IN....{R|
|00001f10| 65 61 64 20 74 68 65 20 | 73 69 7a 65 20 6f 75 74 |ead the |size out|
|00001f20| 20 6f 66 20 74 68 65 20 | 6d 65 6e 75 20 69 74 65 | of the |menu ite|
|00001f30| 6d 7d 0d 09 09 09 47 65 | 74 49 74 65 6d 28 6d 79 |m}....Ge|tItem(my|
|00001f40| 4d 65 6e 75 73 5b 73 69 | 7a 65 4d 65 6e 75 5d 2c |Menus[si|zeMenu],|
|00001f50| 74 68 65 49 74 65 6d 2c | 74 6d 70 53 74 72 29 3b |theItem,|tmpStr);|
|00001f60| 20 7b 67 65 74 20 74 68 | 65 20 63 68 6f 73 65 6e | {get th|e chosen|
|00001f70| 20 73 74 72 69 6e 67 7d | 0d 09 09 09 53 74 72 69 | string}|....Stri|
|00001f80| 6e 67 54 6f 4e 75 6d 28 | 74 6d 70 53 74 72 2c 74 |ngToNum(|tmpStr,t|
|00001f90| 6d 70 4c 6f 6e 67 29 3b | 20 7b 63 6f 6e 76 65 72 |mpLong);| {conver|
|00001fa0| 74 20 74 6f 20 6c 6f 6e | 67 69 6e 74 7d 0d 09 09 |t to lon|gint}...|
|00001fb0| 09 63 75 72 53 69 7a 65 | 20 3a 3d 20 74 6d 70 4c |.curSize| := tmpL|
|00001fc0| 6f 6e 67 3b 20 7b 63 6f | 6e 76 65 72 74 20 69 74 |ong; {co|nvert it|
|00001fd0| 20 74 6f 20 69 6e 74 65 | 67 65 72 7d 0d 09 09 09 | to inte|ger}....|
|00001fe0| 49 6e 76 61 6c 52 65 63 | 74 28 74 68 65 50 6f 72 |InvalRec|t(thePor|
|00001ff0| 74 5e 2e 70 6f 72 74 52 | 65 63 74 29 3b 20 7b 72 |t^.portR|ect); {r|
|00002000| 65 6d 65 6d 62 65 72 20 | 74 68 61 74 20 77 65 20 |emember |that we |
|00002010| 6e 65 65 64 20 74 6f 20 | 72 65 64 72 61 77 7d 0d |need to |redraw}.|
|00002020| 09 09 45 4e 44 3b 20 7b | 73 69 7a 65 4d 65 6e 75 |..END; {|sizeMenu|
|00002030| 20 63 61 73 65 7d 0d 09 | 09 0d 20 20 09 45 4e 44 | case}..|..  .END|
|00002040| 3b 20 7b 6d 65 6e 75 20 | 63 61 73 65 7d 20 20 20 |; {menu |case}   |
|00002050| 20 20 20 20 20 20 20 0d | 09 49 46 20 4e 4f 54 20 |       .|.IF NOT |
|00002060| 64 6f 6e 65 20 54 48 45 | 4e 20 48 69 6c 69 74 65 |done THE|N Hilite|
|00002070| 4d 65 6e 75 28 30 29 3b | 20 7b 75 6e 2d 68 69 6c |Menu(0);| {un-hil|
|00002080| 69 67 68 74 20 74 68 65 | 20 63 68 6f 73 65 6e 20 |ight the| chosen |
|00002090| 6d 65 6e 75 20 69 74 65 | 6d 7d 0d 45 4e 44 3b 20 |menu ite|m}.END; |
|000020a0| 7b 44 6f 43 6f 6d 6d 61 | 6e 64 7d 0d 0d 0d 7b 2a |{DoComma|nd}...{*|
|000020b0| 0d 20 2a 20 4d 61 69 6e | 20 65 76 65 6e 74 20 6c |. * Main| event l|
|000020c0| 6f 6f 70 0d 20 2a 7d 0d | 50 52 4f 43 45 44 55 52 |oop. *}.|PROCEDUR|
|000020d0| 45 20 4d 61 69 6e 45 76 | 65 6e 74 4c 6f 6f 70 3b |E MainEv|entLoop;|
|000020e0| 0d 56 41 52 20 74 68 65 | 50 61 72 74 2c 20 74 68 |.VAR the|Part, th|
|000020f0| 65 48 65 69 67 68 74 3a | 20 49 4e 54 45 47 45 52 |eHeight:| INTEGER|
|00002100| 3b 0d 09 77 68 69 63 68 | 57 69 6e 64 6f 77 3a 20 |;..which|Window: |
|00002110| 57 69 6e 64 6f 77 50 74 | 72 3b 0d 09 74 68 65 43 |WindowPt|r;..theC|
|00002120| 68 61 72 3a 20 43 48 41 | 52 3b 0d 09 64 72 61 67 |har: CHA|R;..drag|
|00002130| 52 65 63 74 3a 20 52 65 | 63 74 3b 0d 09 66 49 6e |Rect: Re|ct;..fIn|
|00002140| 66 6f 3a 20 46 6f 6e 74 | 49 6e 66 6f 3b 0d 42 45 |fo: Font|Info;.BE|
|00002150| 47 49 4e 0d 09 64 6f 6e | 65 20 3a 3d 20 46 41 4c |GIN..don|e := FAL|
|00002160| 53 45 3b 20 7b 77 65 27 | 72 65 20 6e 6f 74 20 74 |SE; {we'|re not t|
|00002170| 68 72 6f 75 67 68 20 79 | 65 74 21 7d 0d 09 64 72 |hrough y|et!}..dr|
|00002180| 61 67 52 65 63 74 20 3a | 3d 20 73 63 72 65 65 6e |agRect :|= screen|
|00002190| 42 69 74 73 2e 62 6f 75 | 6e 64 73 3b 0d 09 0d 09 |Bits.bou|nds;....|
|000021a0| 7b 4d 61 69 6e 20 65 76 | 65 6e 74 20 6c 6f 6f 70 |{Main ev|ent loop|
|000021b0| 7d 0d 09 52 45 50 45 41 | 54 20 20 0d 09 09 53 79 |}..REPEA|T  ...Sy|
|000021c0| 73 74 65 6d 54 61 73 6b | 3b 20 7b 6c 65 74 20 74 |stemTask|; {let t|
|000021d0| 68 65 20 64 65 73 6b 20 | 61 63 63 73 20 72 75 6e |he desk |accs run|
|000021e0| 7d 0d 09 09 49 46 20 47 | 65 74 4e 65 78 74 45 76 |}...IF G|etNextEv|
|000021f0| 65 6e 74 28 65 76 65 72 | 79 45 76 65 6e 74 2c 6d |ent(ever|yEvent,m|
|00002200| 79 45 76 65 6e 74 29 20 | 54 48 45 4e 20 57 49 54 |yEvent) |THEN WIT|
|00002210| 48 20 6d 79 45 76 65 6e | 74 20 44 4f 20 42 45 47 |H myEven|t DO BEG|
|00002220| 49 4e 0d 09 09 09 43 41 | 53 45 20 77 68 61 74 20 |IN....CA|SE what |
|00002230| 4f 46 20 0d 09 09 09 09 | 6d 6f 75 73 65 44 6f 77 |OF .....|mouseDow|
|00002240| 6e 3a 20 42 45 47 49 4e | 20 7b 22 43 6c 69 63 6b |n: BEGIN| {"Click|
|00002250| 22 7d 0d 09 09 09 09 09 | 74 68 65 50 61 72 74 20 |"}......|thePart |
|00002260| 3a 3d 20 46 69 6e 64 57 | 69 6e 64 6f 77 28 77 68 |:= FindW|indow(wh|
|00002270| 65 72 65 2c 77 68 69 63 | 68 57 69 6e 64 6f 77 29 |ere,whic|hWindow)|
|00002280| 3b 0d 09 09 09 09 09 43 | 41 53 45 20 74 68 65 50 |;......C|ASE theP|
|00002290| 61 72 74 20 4f 46 0d 09 | 09 09 09 09 09 69 6e 53 |art OF..|.....inS|
|000022a0| 79 73 57 69 6e 64 6f 77 | 3a 20 53 79 73 74 65 6d |ysWindow|: System|
|000022b0| 43 6c 69 63 6b 28 6d 79 | 45 76 65 6e 74 2c 77 68 |Click(my|Event,wh|
|000022c0| 69 63 68 57 69 6e 64 6f | 77 29 3b 0d 09 09 09 09 |ichWindo|w);.....|
|000022d0| 09 09 69 6e 4d 65 6e 75 | 42 61 72 3a 20 44 6f 43 |..inMenu|Bar: DoC|
|000022e0| 6f 6d 6d 61 6e 64 28 4d | 65 6e 75 53 65 6c 65 63 |ommand(M|enuSelec|
|000022f0| 74 28 6d 79 45 76 65 6e | 74 2e 77 68 65 72 65 29 |t(myEven|t.where)|
|00002300| 29 3b 20 7b 6e 6f 74 68 | 69 6e 67 20 73 70 65 63 |); {noth|ing spec|
|00002310| 69 61 6c 20 68 65 72 65 | 21 7d 0d 09 09 09 09 09 |ial here|!}......|
|00002320| 09 69 6e 44 72 61 67 3a | 09 44 72 61 67 57 69 6e |.inDrag:|.DragWin|
|00002330| 64 6f 77 28 77 68 69 63 | 68 57 69 6e 64 6f 77 2c |dow(whic|hWindow,|
|00002340| 6d 79 45 76 65 6e 74 2e | 77 68 65 72 65 2c 64 72 |myEvent.|where,dr|
|00002350| 61 67 52 65 63 74 29 3b | 0d 09 09 09 09 09 45 4e |agRect);|......EN|
|00002360| 44 3b 20 7b 63 61 73 65 | 7d 0d 09 09 09 09 45 4e |D; {case|}.....EN|
|00002370| 44 3b 20 7b 6d 6f 75 73 | 65 44 6f 77 6e 7d 0d 0d |D; {mous|eDown}..|
|00002380| 09 09 09 09 6b 65 79 44 | 6f 77 6e 2c 20 61 75 74 |....keyD|own, aut|
|00002390| 6f 4b 65 79 3a 20 42 45 | 47 49 4e 0d 09 09 09 09 |oKey: BE|GIN.....|
|000023a0| 09 74 68 65 43 68 61 72 | 20 3a 3d 20 43 48 52 28 |.theChar| := CHR(|
|000023b0| 42 69 74 41 6e 64 28 6d | 79 45 76 65 6e 74 2e 6d |BitAnd(m|yEvent.m|
|000023c0| 65 73 73 61 67 65 2c 63 | 68 61 72 43 6f 64 65 4d |essage,c|harCodeM|
|000023d0| 61 73 6b 29 29 3b 20 20 | 7b 67 65 74 20 74 68 65 |ask));  |{get the|
|000023e0| 20 63 68 61 72 7d 0d 09 | 09 09 09 09 49 46 20 42 | char}..|....IF B|
|000023f0| 69 74 41 6e 64 28 6d 79 | 45 76 65 6e 74 2e 6d 6f |itAnd(my|Event.mo|
|00002400| 64 69 66 69 65 72 73 2c | 63 6d 64 4b 65 79 29 20 |difiers,|cmdKey) |
|00002410| 3c 3e 20 30 20 54 48 45 | 4e 20 42 45 47 49 4e 0d |<> 0 THE|N BEGIN.|
|00002420| 09 09 09 09 09 09 44 6f | 43 6f 6d 6d 61 6e 64 28 |......Do|Command(|
|00002430| 4d 65 6e 75 4b 65 79 28 | 74 68 65 43 68 61 72 29 |MenuKey(|theChar)|
|00002440| 29 3b 20 7b 70 61 73 73 | 20 69 74 20 74 6f 20 74 |); {pass| it to t|
|00002450| 68 65 20 63 6f 6d 6d 61 | 6e 64 20 68 61 6e 64 6c |he comma|nd handl|
|00002460| 65 72 7d 0d 09 09 09 09 | 09 45 4e 44 20 45 4c 53 |er}.....|.END ELS|
|00002470| 45 20 42 45 47 49 4e 20 | 7b 6e 6f 74 20 61 20 63 |E BEGIN |{not a c|
|00002480| 6f 6d 6d 61 6e 64 20 6b | 65 79 7d 0d 09 09 09 09 |ommand k|ey}.....|
|00002490| 09 09 7b 69 67 6e 6f 72 | 65 20 69 74 7d 0d 09 09 |..{ignor|e it}...|
|000024a0| 09 09 09 45 4e 44 3b 20 | 7b 69 66 20 6e 6f 74 20 |...END; |{if not |
|000024b0| 63 6f 6d 6d 61 6e 64 20 | 6b 65 79 7d 0d 09 09 09 |command |key}....|
|000024c0| 09 45 4e 44 3b 20 7b 6b | 65 79 64 6f 77 6e 7d 0d |.END; {k|eydown}.|
|000024d0| 0d 09 09 09 09 75 70 64 | 61 74 65 45 76 74 3a 20 |.....upd|ateEvt: |
|000024e0| 42 45 47 49 4e 20 7b 6f | 75 72 20 77 69 6e 64 6f |BEGIN {o|ur windo|
|000024f0| 77 20 6e 65 65 64 73 20 | 64 72 61 77 69 6e 67 7d |w needs |drawing}|
|00002500| 0d 09 09 09 09 09 42 65 | 67 69 6e 55 70 64 61 74 |......Be|ginUpdat|
|00002510| 65 28 57 69 6e 64 6f 77 | 70 74 72 28 6d 65 73 73 |e(Window|ptr(mess|
|00002520| 61 67 65 29 29 3b 0d 09 | 09 09 09 09 0d 09 09 09 |age));..|........|
|00002530| 09 09 53 65 74 50 6f 72 | 74 28 6d 79 57 69 6e 64 |..SetPor|t(myWind|
|00002540| 6f 77 29 3b 20 7b 6d 61 | 6b 65 20 73 75 72 65 20 |ow); {ma|ke sure |
|00002550| 77 65 27 72 65 20 69 6e | 20 6f 75 72 20 70 6f 72 |we're in| our por|
|00002560| 74 7d 0d 09 09 09 09 09 | 45 72 61 73 65 52 65 63 |t}......|EraseRec|
|00002570| 74 28 74 68 65 50 6f 72 | 74 5e 2e 70 6f 72 74 52 |t(thePor|t^.portR|
|00002580| 65 63 74 29 3b 20 7b 65 | 72 61 73 65 20 74 68 65 |ect); {e|rase the|
|00002590| 20 6f 6c 64 20 73 74 75 | 66 66 7d 0d 09 09 09 09 | old stu|ff}.....|
|000025a0| 09 0d 09 09 09 09 09 54 | 65 78 74 46 6f 6e 74 28 |.......T|extFont(|
|000025b0| 63 75 72 46 6f 6e 74 29 | 3b 20 7b 53 65 74 20 74 |curFont)|; {Set t|
|000025c0| 68 65 20 72 69 67 68 74 | 20 66 6f 6e 74 2f 73 69 |he right| font/si|
|000025d0| 7a 65 2f 73 74 79 6c 65 | 7d 0d 09 09 09 09 09 54 |ze/style|}......T|
|000025e0| 65 78 74 53 69 7a 65 28 | 63 75 72 53 69 7a 65 29 |extSize(|curSize)|
|000025f0| 3b 0d 09 09 09 09 09 54 | 65 78 74 46 61 63 65 28 |;......T|extFace(|
|00002600| 63 75 72 53 74 79 6c 65 | 29 3b 0d 09 09 09 09 09 |curStyle|);......|
|00002610| 0d 09 09 09 09 09 47 65 | 74 46 6f 6e 74 49 6e 66 |......Ge|tFontInf|
|00002620| 6f 28 66 49 6e 66 6f 29 | 3b 0d 09 09 09 09 09 57 |o(fInfo)|;......W|
|00002630| 49 54 48 20 66 49 6e 66 | 6f 20 44 4f 20 74 68 65 |ITH fInf|o DO the|
|00002640| 48 65 69 67 68 74 20 3a | 3d 20 61 73 63 65 6e 74 |Height :|= ascent|
|00002650| 2b 64 65 73 63 65 6e 74 | 2b 6c 65 61 64 69 6e 67 |+descent|+leading|
|00002660| 3b 0d 09 09 09 09 09 4d | 6f 76 65 54 6f 28 32 30 |;......M|oveTo(20|
|00002670| 2c 32 30 2b 74 68 65 48 | 65 69 67 68 74 29 3b 20 |,20+theH|eight); |
|00002680| 44 72 61 77 53 74 72 69 | 6e 67 28 64 65 6d 6f 53 |DrawStri|ng(demoS|
|00002690| 74 72 31 29 3b 0d 09 09 | 09 09 09 4d 6f 76 65 54 |tr1);...|...MoveT|
|000026a0| 6f 28 32 30 2c 32 30 2b | 28 74 68 65 48 65 69 67 |o(20,20+|(theHeig|
|000026b0| 68 74 2a 32 29 29 3b 20 | 44 72 61 77 53 74 72 69 |ht*2)); |DrawStri|
|000026c0| 6e 67 28 64 65 6d 6f 53 | 74 72 32 29 3b 0d 09 09 |ng(demoS|tr2);...|
|000026d0| 09 09 09 4d 6f 76 65 54 | 6f 28 32 30 2c 32 30 2b |...MoveT|o(20,20+|
|000026e0| 28 74 68 65 48 65 69 67 | 68 74 2a 33 29 29 3b 20 |(theHeig|ht*3)); |
|000026f0| 44 72 61 77 53 74 72 69 | 6e 67 28 64 65 6d 6f 53 |DrawStri|ng(demoS|
|00002700| 74 72 33 29 3b 0d 09 09 | 09 09 09 4d 6f 76 65 54 |tr3);...|...MoveT|
|00002710| 6f 28 32 30 2c 32 30 2b | 28 74 68 65 48 65 69 67 |o(20,20+|(theHeig|
|00002720| 68 74 2a 35 29 29 3b 20 | 44 72 61 77 53 74 72 69 |ht*5)); |DrawStri|
|00002730| 6e 67 28 64 65 6d 6f 53 | 74 72 34 29 3b 0d 09 09 |ng(demoS|tr4);...|
|00002740| 09 09 09 09 09 09 09 09 | 0d 09 09 09 09 09 45 6e |........|......En|
|00002750| 64 55 70 64 61 74 65 28 | 57 69 6e 64 6f 77 50 74 |dUpdate(|WindowPt|
|00002760| 72 28 6d 65 73 73 61 67 | 65 29 29 3b 0d 09 09 09 |r(messag|e));....|
|00002770| 09 45 4e 44 3b 0d 09 09 | 09 45 4e 44 3b 20 7b 63 |.END;...|.END; {c|
|00002780| 61 73 65 7d 0d 09 09 45 | 4e 44 3b 20 7b 69 66 20 |ase}...E|ND; {if |
|00002790| 77 65 20 67 6f 74 20 61 | 6e 20 65 76 65 6e 74 7d |we got a|n event}|
|000027a0| 0d 09 09 0d 09 55 4e 54 | 49 4c 20 64 6f 6e 65 3b |.....UNT|IL done;|
|000027b0| 20 7b 6b 65 65 70 20 69 | 74 20 75 70 20 75 6e 74 | {keep i|t up unt|
|000027c0| 69 6c 20 74 68 65 20 75 | 73 65 72 20 71 75 69 74 |il the u|ser quit|
|000027d0| 73 7d 0d 09 0d 45 4e 44 | 3b 20 7b 6d 61 69 6e 65 |s}...END|; {maine|
|000027e0| 76 65 6e 74 6c 6f 6f 70 | 7d 0d 20 0d 20 0d 7b 2a |ventloop|}. . .{*|
|000027f0| 0d 20 2a 20 4d 61 69 6e | 0d 20 2a 7d 0d 42 45 47 |. * Main|. *}.BEG|
|00002800| 49 4e 0d 09 7b 49 6e 69 | 74 69 61 6c 69 7a 65 20 |IN..{Ini|tialize |
|00002810| 61 6c 6c 20 74 68 65 20 | 75 73 75 61 6c 20 6d 61 |all the |usual ma|
|00002820| 6e 61 67 65 72 73 7d 0d | 09 49 6e 69 74 47 72 61 |nagers}.|.InitGra|
|00002830| 66 28 40 74 68 65 50 6f | 72 74 29 3b 09 0d 09 49 |f(@thePo|rt);...I|
|00002840| 6e 69 74 46 6f 6e 74 73 | 3b 09 09 09 0d 09 46 6c |nitFonts|;.....Fl|
|00002850| 75 73 68 45 76 65 6e 74 | 73 28 65 76 65 72 79 45 |ushEvent|s(everyE|
|00002860| 76 65 6e 74 2c 30 29 3b | 0d 09 49 6e 69 74 57 69 |vent,0);|..InitWi|
|00002870| 6e 64 6f 77 73 3b 09 09 | 09 09 0d 09 49 6e 69 74 |ndows;..|....Init|
|00002880| 4d 65 6e 75 73 3b 09 09 | 09 0d 09 54 45 49 6e 69 |Menus;..|...TEIni|
|00002890| 74 3b 0d 09 49 6e 69 74 | 44 69 61 6c 6f 67 73 28 |t;..Init|Dialogs(|
|000028a0| 4e 49 4c 29 3b 09 09 09 | 0d 09 49 6e 69 74 43 75 |NIL);...|..InitCu|
|000028b0| 72 73 6f 72 3b 09 09 09 | 0d 09 0d 09 7b 43 68 65 |rsor;...|....{Che|
|000028c0| 63 6b 20 74 6f 20 6d 61 | 6b 65 20 73 75 72 65 20 |ck to ma|ke sure |
|000028d0| 77 65 d5 72 65 20 72 75 | 6e 6e 69 6e 67 20 6f 6e |we.re ru|nning on|
|000028e0| 20 61 20 6d 61 63 68 69 | 6e 65 7d 0d 09 7b 63 61 | a machi|ne}..{ca|
|000028f0| 70 61 62 6c 65 20 6f 66 | 20 73 75 70 70 6f 72 74 |pable of| support|
|00002900| 69 6e 67 20 68 69 65 72 | 61 72 63 68 69 63 61 6c |ing hier|archical|
|00002910| 20 6d 65 6e 75 73 3b 20 | 63 6c 65 61 72 6c 79 2c | menus; |clearly,|
|00002920| 7d 0d 09 7b 77 65 20 6d | 75 73 74 20 64 6f 20 74 |}..{we m|ust do t|
|00002930| 68 69 73 20 62 65 66 6f | 72 65 20 63 61 6c 6c 69 |his befo|re calli|
|00002940| 6e 67 20 53 65 74 55 70 | 4d 65 6e 75 73 21 7d 0d |ng SetUp|Menus!}.|
|00002950| 09 28 2a 2a 20 53 79 73 | 45 6e 76 69 72 6f 6e 73 |.(** Sys|Environs|
|00002960| 28 78 78 78 29 3b 20 2a | 2a 29 0d 09 49 46 20 46 |(xxx); *|*)..IF F|
|00002970| 41 4c 53 45 20 54 48 45 | 4e 20 42 45 47 49 4e 20 |ALSE THE|N BEGIN |
|00002980| 7b 53 6f 72 72 79 2c 20 | 73 65 65 20 79 6f 75 72 |{Sorry, |see your|
|00002990| 20 64 65 61 6c 65 72 7d | 0d 09 09 69 20 3a 3d 20 | dealer}|...i := |
|000029a0| 53 74 6f 70 41 6c 65 72 | 74 28 6d 79 41 4c 52 54 |StopAler|t(myALRT|
|000029b0| 69 64 2c 4e 49 4c 29 3b | 20 7b 70 75 74 20 75 70 |id,NIL);| {put up|
|000029c0| 20 74 68 65 20 61 6c 65 | 72 74 7d 0d 09 09 45 78 | the ale|rt}...Ex|
|000029d0| 69 74 54 6f 53 68 65 6c | 6c 3b 20 7b 62 61 63 6b |itToShel|l; {back|
|000029e0| 20 74 6f 20 74 68 65 20 | 66 69 6e 64 65 72 7d 0d | to the |finder}.|
|000029f0| 09 45 4e 44 3b 0d 09 0d | 09 63 75 72 46 6f 6e 74 |.END;...|.curFont|
|00002a00| 20 3a 3d 20 31 3b 20 7b | 41 70 70 6c 69 63 61 74 | := 1; {|Applicat|
|00002a10| 69 6f 6e 20 66 6f 6e 74 | 7d 0d 09 63 75 72 53 69 |ion font|}..curSi|
|00002a20| 7a 65 20 3a 3d 20 30 3b | 20 7b 64 65 66 61 75 6c |ze := 0;| {defaul|
|00002a30| 74 20 73 69 7a 65 7d 0d | 09 63 75 72 53 74 79 6c |t size}.|.curStyl|
|00002a40| 65 20 3a 3d 20 5b 5d 3b | 20 7b 70 6c 61 69 6e 7d |e := [];| {plain}|
|00002a50| 0d 09 0d 09 53 65 74 55 | 70 4d 65 6e 75 73 3b 20 |....SetU|pMenus; |
|00002a60| 7b 74 68 65 20 6f 6c 64 | 65 73 74 20 4d 61 63 69 |{the old|est Maci|
|00002a70| 6e 74 6f 73 68 20 73 75 | 62 72 6f 75 74 69 6e 65 |ntosh su|broutine|
|00002a80| 21 7d 0d 09 0d 09 7b 72 | 65 61 64 20 74 68 65 20 |!}....{r|ead the |
|00002a90| 73 74 72 69 6e 67 73 20 | 74 68 61 74 20 77 65 20 |strings |that we |
|00002aa0| 64 72 61 77 20 69 6e 20 | 6f 75 72 20 77 69 6e 64 |draw in |our wind|
|00002ab0| 6f 77 7d 0d 09 7b 66 72 | 6f 6d 20 61 20 53 54 52 |ow}..{fr|om a STR|
|00002ac0| 23 20 72 65 73 6f 75 72 | 63 65 7d 0d 09 47 65 74 |# resour|ce}..Get|
|00002ad0| 49 6e 64 53 74 72 69 6e | 67 28 64 65 6d 6f 53 74 |IndStrin|g(demoSt|
|00002ae0| 72 31 2c 6d 79 53 54 52 | 4c 69 73 74 49 44 2c 31 |r1,mySTR|ListID,1|
|00002af0| 29 3b 0d 09 47 65 74 49 | 6e 64 53 74 72 69 6e 67 |);..GetI|ndString|
|00002b00| 28 64 65 6d 6f 53 74 72 | 32 2c 6d 79 53 54 52 4c |(demoStr|2,mySTRL|
|00002b10| 69 73 74 49 44 2c 32 29 | 3b 0d 09 47 65 74 49 6e |istID,2)|;..GetIn|
|00002b20| 64 53 74 72 69 6e 67 28 | 64 65 6d 6f 53 74 72 33 |dString(|demoStr3|
|00002b30| 2c 6d 79 53 54 52 4c 69 | 73 74 49 44 2c 33 29 3b |,mySTRLi|stID,3);|
|00002b40| 0d 09 47 65 74 49 6e 64 | 53 74 72 69 6e 67 28 64 |..GetInd|String(d|
|00002b50| 65 6d 6f 53 74 72 34 2c | 6d 79 53 54 52 4c 69 73 |emoStr4,|mySTRLis|
|00002b60| 74 49 44 2c 34 29 3b 0d | 09 0d 09 7b 47 65 74 20 |tID,4);.|...{Get |
|00002b70| 6f 75 72 20 77 69 6e 64 | 6f 77 7d 0d 09 6d 79 57 |our wind|ow}..myW|
|00002b80| 69 6e 64 6f 77 20 3a 3d | 20 47 65 74 4e 65 77 57 |indow :=| GetNewW|
|00002b90| 69 6e 64 6f 77 28 6d 79 | 57 49 4e 44 69 64 2c 4e |indow(my|WINDid,N|
|00002ba0| 49 4c 2c 50 4f 49 4e 54 | 45 52 28 2d 31 29 29 3b |IL,POINT|ER(-1));|
|00002bb0| 0d 0d 09 4d 61 69 6e 45 | 76 65 6e 74 4c 6f 6f 70 |...MainE|ventLoop|
|00002bc0| 3b 20 7b 68 61 6e 64 6c | 65 20 65 76 65 6e 74 73 |; {handl|e events|
|00002bd0| 20 75 6e 74 69 6c 20 74 | 68 65 20 75 73 65 72 20 | until t|he user |
|00002be0| 71 75 69 74 73 7d 0d 45 | 4e 44 2e 0d 0d 0d 00 00 |quits}.E|ND......|
|00002bf0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002c00| 00 00 01 00 00 00 01 b0 | 00 00 00 b0 00 00 00 3e |........|.......>|
|00002c10| 6f 20 22 73 65 74 20 65 | 63 68 6f 20 31 22 20 3e |o "set e|cho 1" >|
|00002c20| 20 7b 44 65 76 7d 4d 61 | 6b 65 4f 75 74 0d 6d 61 | {Dev}Ma|keOut.ma|
|00002c30| 0b 48 69 65 72 4d 65 6e | 75 73 2e 70 02 00 00 00 |.HierMen|us.p....|
|00002c40| 54 45 58 54 4d 50 53 20 | 01 00 00 00 00 00 00 00 |TEXTMPS |........|
|00002c50| 00 00 54 45 58 54 4d 50 | 53 20 01 00 00 00 00 00 |..TEXTMP|S ......|
|00002c60| 00 00 01 b6 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002c70| 00 00 9c e7 5c ef 00 00 | 2b 6e 00 00 01 ee 73 65 |....\...|+n....se|
|00002c80| 74 20 65 63 68 6f 20 30 | 22 20 3e 3e 20 7b 44 65 |t echo 0|" >> {De|
|00002c90| 76 7d 4d 61 6b 65 4f 75 | 74 0d 7b 44 65 76 7d 4d |v}MakeOu|t.{Dev}M|
|00002ca0| 61 6b 65 4f 75 74 0d 64 | 65 6c 65 74 65 20 7b 44 |akeOut.d|elete {D|
|00002cb0| 65 76 7d 4d 61 6b 65 4f | 75 74 0d 73 79 6e 63 0d |ev}MakeO|ut.sync.|
|00002cc0| 6e 74 25 00 00 00 00 00 | 00 00 00 00 02 00 75 73 |nt%.....|......us|
|00002cd0| 74 61 74 00 00 00 00 00 | 00 00 00 01 00 00 02 00 |tat.....|........|
|00002ce0| 63 65 72 72 6f 72 25 00 | 00 00 00 00 00 00 00 00 |cerror%.|........|
|00002cf0| 02 00 4d 25 30 00 00 00 | 00 00 00 00 00 30 00 02 |..M%0...|.....0..|
|00002d00| 00 00 00 48 00 09 4d 6f | 6e 61 63 6f 00 73 3a 2c |...H..Mo|naco.s:,|
|00002d10| 51 32 38 30 83 00 00 34 | 00 00 f4 e8 00 00 00 00 |Q280...4|........|
|00002d20| 00 02 7e bc ff ff 00 06 | 00 04 00 27 00 00 01 df |..~.....|...'....|
|00002d30| 02 30 00 27 00 00 01 df | 02 30 9f 1a 3e fe 00 00 |.0.'....|.0..>...|
|00002d40| 00 00 00 00 00 00 00 00 | 00 00 01 00 00 00 00 60 |........|.......`|
|00002d50| 00 05 00 00 10 ca 00 00 | 10 cd 0b 47 6c 6f 62 61 |........|...Globa|
|00002d60| 6c 20 56 41 52 00 00 00 | 13 35 00 00 13 3f 0b 53 |l VAR...|.5...?.S|
|00002d70| 65 74 55 70 4d 65 6e 75 | 73 00 00 00 16 f2 00 00 |etUpMenu|s.......|
|00002d80| 16 fb 09 44 6f 43 6f 6d | 6d 61 6e 64 00 00 20 52 |...DoCom|mand.. R|
|00002d90| 00 00 20 5f 0d 4d 61 69 | 6e 45 76 65 6e 74 4c 6f |.. _.Mai|nEventLo|
|00002da0| 6f 70 00 00 27 74 00 00 | 27 78 05 4d 61 69 6e 00 |op..'t..|'x.Main.|
|00002db0| 00 00 01 00 00 00 01 b0 | 00 00 00 b0 00 00 00 3e |........|.......>|
|00002dc0| 00 05 bb e8 04 c8 00 00 | 00 1c 00 3e 00 00 4d 50 |........|...>..MP|
|00002dd0| 53 52 00 01 00 0a 03 ed | ff ff 00 00 00 00 00 00 |SR......|........|
|00002de0| 00 00 03 ef ff ff 00 00 | 00 4c 00 00 00 00 00 00 |........|.L......|
|00002df0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+